home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Taifun / Taifun 136 (1990-05-15)(Ossowski, Stefan)(DE)(PD).zip / Taifun 136 (1990-05-15)(Ossowski, Stefan)(DE)(PD).adf / MF-Pascal_0.2 / tst.p < prev    next >
Text File  |  1990-02-23  |  1KB  |  56 lines
  1. program test(input,outpu);
  2. const
  3.    konst=5;
  4.    ne= 3;
  5.    pie= 3.1415;
  6. type
  7.    int = integer;
  8.    byte = 0 .. 255;
  9.    pint = ^int;
  10.    nix = (gut,schlecht,mittel,hoch,neu,alt);
  11.    tneu = file of char;
  12. {   tx = set of int; Integer als set nicht zugelassen }
  13.    tx1 = set of byte;
  14.    tx2 = set of nix;
  15.    tx3 = set of char;
  16.    tx4 = set of boolean;
  17.    zahlen = array[3..33] of integer;
  18.    rtyp = record
  19.              a,b,c: int;
  20.              e,f: byte;
  21.           end;
  22. var
  23.    i , j : int;
  24.    ra, rb, rc : real;
  25.    tz: byte;
  26.    pz: ^byte;
  27.    was: (dick,duenn,lang,breit);
  28.    f1 : tneu;
  29.    f2 : file of byte;
  30.    txy : set of nix;
  31.    sammel : array [1..5] of nix;
  32.    rvar : record
  33.             a1,a2,a3: integer;
  34.             b1,b2,b3: byte;
  35.             c0,c1: record
  36.                       d1: ^int;
  37.                       d2: rtyp;
  38.                    end;
  39.             e1,e2: nix;
  40.           end;
  41.  
  42. procedure otto;
  43. var
  44.   ij: integer;
  45. Begin {otto}
  46.   ij := 1;
  47.   ij := ij + 2;
  48. end;  {otto}
  49.  
  50. Begin
  51.    i := 1;
  52.    j := 2+3*2;
  53.    ra := pie * 2.5;
  54.    writeln("Hello World");
  55. end.
  56.